home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #5 / CD 5 (Black) - 2001.iso / K-CS.dcr / 00036_Radio 3.ls < prev    next >
Encoding:
Text File  |  2001-02-20  |  627 b   |  21 lines
  1. on new me
  2.   set the visible of sprite the spriteNum of me to 1
  3. end
  4.  
  5. on mouseDown me
  6.   set Nummer to (the spriteNum of me / 3 * 3) + 3
  7.   set the visible of sprite Nummer to 0
  8.   set the visible of sprite (Nummer + 1) to 0
  9.   set the visible of sprite (Nummer + 2) to 0
  10.   set the visible of sprite (the spriteNum of me + 3) to 1
  11.   if (the spriteNum of me mod 3) = 0 then
  12.     set the textFont of member "VisTegn" to "Arial"
  13.   else
  14.     if (the spriteNum of me mod 3) = 1 then
  15.       set the textFont of member "VisTegn" to "Times New Roman"
  16.     else
  17.       set the textFont of member "VisTegn" to "Courier New"
  18.     end if
  19.   end if
  20. end
  21.